home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / egg / eggrc-wnn.z / eggrc-wnn
Encoding:
Text File  |  1998-05-21  |  12.7 KB  |  350 lines
  1. ;;    -*-Emacs-Lisp-*-
  2. ;; Standard Start Up File for EGG
  3. ;; Copyright (C) 1992 Free Software Foundation, Inc.
  4. ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
  5.  
  6. ;; Mule is free software distributed in the form of patches to GNU Emacs.
  7. ;; You can redistribute it and/or modify
  8. ;; it under the terms of the GNU General Public License as published by
  9. ;; the Free Software Foundation; either version 1, or (at your option)
  10. ;; any later version.
  11.  
  12. ;; Mule is distributed in the hope that it will be useful,
  13. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ;; GNU General Public License for more details.
  16.  
  17. ;; You should have received a copy of the GNU General Public License
  18. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  19. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21. ;;;     Version 1.0
  22. ;;;      Written by Satoru.Tomura@etl.jp 1988
  23. ;;;      modified for LUNA'default  ryuji@nfa.ncl.omron.junet
  24. ;;;
  25. ;;;      modified for Wnn V4 - Use compatible library of Wnn v3
  26. ;;;     Copyright 1989 OMRON Tateisi Electronics, Co.
  27. ;;;     1989 7/12 by H.Kuribayashi kuri@frf.oron.junet
  28.  
  29. ;;; 92.5.19  modified for Wnn V4 by T.Shingu <shingu@cpr.canon.co.jp>
  30. ;;;    Use non compatible library.
  31. ;;; 93.1.8   file names of frequency and private dictionary ware adjusted
  32. ;;;    to Wnn version 4.1.
  33. ;;; 93.4.2   dictianary, frequency files are set up on normal/reverse
  34. ;;;    environment individually.
  35. ;;; 93.6.30  specifying default user directory to make customize easily
  36. ;;;    suggested by K.Sakai <ksakai@mtl.t.u-tokyo.ac.jp>
  37.  
  38. ;(defvar wnn-usr-dic-dir "usr/$USER")
  39. (defvar wnn-usr-dic-dir (concat "usr/" (user-login-name)))
  40.  
  41. (defun wnn6-jserver-setup ()
  42.        (set-wnn-reverse nil)
  43.        (set-wnn-fuzokugo "iwanami/kougo.fzk")
  44.        (add-wnn-fisys-dict "iwanami/fisd"
  45.                (concat wnn-usr-dic-dir "/fisd.h") t)
  46.        (add-wnn-fiusr-dict (concat wnn-usr-dic-dir "/fiud") "" t nil)
  47.        (add-wnn-dict "iwanami/kihon.dic"
  48.              (concat wnn-usr-dic-dir "/kihon.h") 6 nil t)
  49.        (add-wnn-dict "iwanami/symbol.dic"
  50.              (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
  51.        (add-wnn-dict "iwanami/tankan.dic" "" 1 nil nil)
  52.        (add-wnn-dict "iwanami/tankan2.dic" "" 1 nil nil)
  53.        (add-wnn-dict "iwanami/tel.dic" "" 1 nil nil)
  54.        (add-wnn-dict "iwanami/zip.dic" "" 1 nil nil)
  55.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
  56. ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
  57. ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
  58.        (wnn-server-set-param '(wnn_n 5
  59.                 wnn_nsho 10
  60.                 wnn_hindo 2
  61.                 wnn_len 45
  62.                 wnn_jiri 0
  63.                 wnn_flag 80
  64.                 wnn_jisho 5
  65.                 wnn_sbn 1
  66.                 wnn_dbn_len 20
  67.                 wnn_sbn_cnt 0
  68.                 wnn_suuji 400
  69.                 wnn_kana -100
  70.                 wnn_eisuu 400
  71.                 wnn_kigou 80
  72.                 wnn_toji_kakko 200
  73.                 wnn_fuzokogo 2
  74.                 wnn_kaikakko 200))
  75. ;       (set-wnn-param  5 10 2 45 0  80 5 1 20  0 400 -100 400   80 200 2 200)
  76.  
  77.        (add-wnn-notrans-dict "usr/$USER/katakana" 15 t)
  78.        (add-wnn-bmodify-dict "usr/$USER/bunsetsu" 15 t)
  79.  
  80.        (set-last-is-first-mode t)
  81.        (set-complex-conv-mode nil)
  82. ;       (set-okuri-flag -1)
  83.        (set-prefix-flag 0)
  84.        
  85.        (set-okuri-learn-mode t)
  86.        (set-prefix-learn-mode t)
  87.        (set-suffix-learn-mode t)
  88.        (set-common-learn-mode t)
  89.        (set-yuragi-mode nil)
  90.  
  91.        (set-freq-func-mode 4)
  92.  
  93. ;       (set-numeric-mode -12)
  94. ;       (set-alphabet-mode -30)
  95. ;       (set-symbol-mode -40)
  96.        
  97.        (set-wnn-reverse t)
  98.        (set-wnn-fuzokugo "iwanami/kougo.fzk")
  99.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
  100.        (wnn-server-set-param '(wnn_n 2
  101.                 wnn_nsho 10
  102.                 wnn_hindo 2
  103.                 wnn_len 45
  104.                 wnn_jiri 1
  105.                 wnn_flag 80
  106.                 wnn_jisho 5
  107.                 wnn_sbn 1
  108.                 wnn_dbn_len 50
  109.                 wnn_sbn_cnt -20
  110.                 wnn_suuji 400
  111.                 wnn_kana -10
  112.                 wnn_eisuu 100
  113.                 wnn_kigou -100
  114.                 wnn_toji_kakko 200
  115.                 wnn_fuzokogo 2
  116.                 wnn_kaikakko 200))
  117. ;       (set-wnn-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200)
  118.  
  119.        )
  120.  
  121.  
  122. (defun wnn4-jserver-setup ()
  123.        (set-wnn-reverse nil)
  124.        (set-wnn-fuzokugo "pubdic/full.fzk")
  125.        (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
  126.        (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
  127.        (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
  128.        (add-wnn-dict "pubdic/chimei.dic" (concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
  129.        (add-wnn-dict "pubdic/jinmei.dic" (concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
  130.        (add-wnn-dict "pubdic/special.dic" (concat wnn-usr-dic-dir "/special.h") 5 nil t)
  131.        (add-wnn-dict "pubdic/computer.dic" (concat wnn-usr-dic-dir "/computer.h") 5 nil t)
  132.        (add-wnn-dict "pubdic/symbol.dic" (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
  133.        (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
  134.        (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
  135.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  136. ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
  137. ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
  138.        (wnn-server-set-param '(wnn_n 2
  139.                 wnn_nsho 10
  140.                 wnn_hindo 2
  141.                 wnn_len 45
  142.                 wnn_jiri 5
  143.                 wnn_flag 80
  144.                 wnn_jisho 5
  145.                 wnn_sbn 1
  146.                 wnn_dbn_len 40
  147.                 wnn_sbn_cnt 0
  148.                 wnn_suuji 400
  149.                 wnn_kana -100
  150.                 wnn_eisuu 400
  151.                 wnn_kigou 80
  152.                 wnn_toji_kakko 200
  153.                 wnn_fuzokogo 2
  154.                 wnn_kaikakko 200))
  155. ;       (set-wnn-param  2 10 2 45 5  80 5 1 40  0 400 -100 400   80 200 2 200)
  156.        (set-wnn-reverse t)
  157.        (set-wnn-fuzokugo "pubdic/full.fzk")
  158.        (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
  159.        (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
  160.        (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
  161.        (add-wnn-dict "pubdic/chimei.dic" (concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
  162.        (add-wnn-dict "pubdic/jinmei.dic" (concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
  163.        (add-wnn-dict "pubdic/special.dic" (concat wnn-usr-dic-dir "/special.h") 5 nil t)
  164.        (add-wnn-dict "pubdic/computer.dic" (concat wnn-usr-dic-dir "/computer.h") 5 nil t)
  165. ;       (add-wnn-dict "pubdic/symbol.dic" (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
  166.        (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
  167.        (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
  168.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  169. ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
  170. ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
  171.        (wnn-server-set-param '(wnn_n 2
  172.                 wnn_nsho 10
  173.                 wnn_hindo 2
  174.                 wnn_len 45
  175.                 wnn_jiri 1
  176.                 wnn_flag 80
  177.                 wnn_jisho 5
  178.                 wnn_sbn 1
  179.                 wnn_dbn_len 50
  180.                 wnn_sbn_cnt -20
  181.                 wnn_suuji 400
  182.                 wnn_kana -10
  183.                 wnn_eisuu 100
  184.                 wnn_kigou -100
  185.                 wnn_toji_kakko 200
  186.                 wnn_fuzokogo 2
  187.                 wnn_kaikakko 200))
  188. ;       (set-wnn-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200)
  189.  
  190. )
  191.  
  192. (cond ((eq wnn-server-type 'jserver)
  193.        (if (is-wnn6-server)
  194.        (wnn6-jserver-setup)
  195.      (wnn4-jserver-setup)))
  196.       ((eq wnn-server-type 'cserver)
  197.        (set-wnn-reverse nil)
  198.        (set-wnn-fuzokugo "sys/full.con")
  199.        (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
  200.        (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
  201.        (add-wnn-dict "sys/basic.dic"    (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
  202.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  203.        (wnn-server-set-param '(wnn_n 1
  204.                 wnn_nsho 5
  205.                 wnn_hindo 2
  206.                 wnn_len 750
  207.                 wnn_jiri 10
  208.                 wnn_flag 80
  209.                 wnn_jisho 10
  210.                 wnn_sbn 5
  211.                 wnn_dbn_len 1000
  212.                 wnn_sbn_cnt 50
  213.                 wnn_suuji 0
  214.                 wnn_kana -200
  215.                 wnn_eisuu 0
  216.                 wnn_kigou 0
  217.                 wnn_toji_kakko 0
  218.                 wnn_fuzokogo 16
  219.                 wnn_kaikakko 0))
  220. ;       (set-wnn-param 1 5  2 750 10 80 10 5 1000 50  0  -200  0  0  0  16  0)
  221.        (set-wnn-reverse t)
  222.        (set-wnn-fuzokugo "sys/full.con")
  223.        (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
  224.        (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
  225.        (add-wnn-dict "sys/basic.dic"    (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
  226.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  227.        (wnn-server-set-param '(wnn_n 1
  228.                 wnn_nsho 5
  229.                 wnn_hindo 2
  230.                 wnn_len 750
  231.                 wnn_jiri 10
  232.                 wnn_flag 80
  233.                 wnn_jisho 10
  234.                 wnn_sbn 5
  235.                 wnn_dbn_len 1000
  236.                 wnn_sbn_cnt 50
  237.                 wnn_suuji 0
  238.                 wnn_kana -200
  239.                 wnn_eisuu 0
  240.                 wnn_kigou 0
  241.                 wnn_toji_kakko 0
  242.                 wnn_fuzokogo 16
  243.                 wnn_kaikakko 0))
  244. ;       (set-wnn-param 1 5  2 750 10 80 10 5 1000 50  0  -200  0  0  0  16  0)
  245.        )
  246.       ((eq wnn-server-type 'tserver)
  247.        (set-wnn-reverse nil)
  248.        (set-wnn-fuzokugo "sys/full.con")
  249.        (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
  250.        (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
  251.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  252.        (wnn-server-set-param '(wnn_n 1
  253.                 wnn_nsho 5
  254.                 wnn_hindo 2
  255.                 wnn_len 750
  256.                 wnn_jiri 10
  257.                 wnn_flag 80
  258.                 wnn_jisho 10
  259.                 wnn_sbn 5
  260.                 wnn_dbn_len 1000
  261.                 wnn_sbn_cnt 50
  262.                 wnn_suuji 0
  263.                 wnn_kana -200
  264.                 wnn_eisuu 0
  265.                 wnn_kigou 0
  266.                 wnn_toji_kakko 0
  267.                 wnn_fuzokogo 16
  268.                 wnn_kaikakko 0))
  269. ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
  270.        (set-wnn-reverse t)
  271.        (set-wnn-fuzokugo "sys/full.con")
  272.        (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
  273.        (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
  274.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  275.        (wnn-server-set-param '(wnn_n 1
  276.                 wnn_nsho 5
  277.                 wnn_hindo 2
  278.                 wnn_len 750
  279.                 wnn_jiri 10
  280.                 wnn_flag 80
  281.                 wnn_jisho 10
  282.                 wnn_sbn 5
  283.                 wnn_dbn_len 1000
  284.                 wnn_sbn_cnt 50
  285.                 wnn_suuji 0
  286.                 wnn_kana -200
  287.                 wnn_eisuu 0
  288.                 wnn_kigou 0
  289.                 wnn_toji_kakko 0
  290.                 wnn_fuzokogo 16
  291.                 wnn_kaikakko 0))
  292. ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
  293.        )
  294.       ((eq wnn-server-type 'kserver)
  295.        (set-wnn-reverse nil)
  296.        (set-wnn-fuzokugo "sys/full.fzk")
  297.                     ;       (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
  298.        (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
  299.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  300.                     ;       (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
  301.                     ;       (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
  302.        (wnn-server-set-param '(wnn_n 1
  303.                 wnn_nsho 5
  304.                 wnn_hindo 2
  305.                 wnn_len 750
  306.                 wnn_jiri 10
  307.                 wnn_flag 80
  308.                 wnn_jisho 10
  309.                 wnn_sbn 5
  310.                 wnn_dbn_len 1000
  311.                 wnn_sbn_cnt 50
  312.                 wnn_suuji 0
  313.                 wnn_kana -200
  314.                 wnn_eisuu 0
  315.                 wnn_kigou 0
  316.                 wnn_toji_kakko 0
  317.                 wnn_fuzokogo 16
  318.                 wnn_kaikakko 0))
  319. ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
  320.        (set-wnn-reverse t)
  321.        (set-wnn-fuzokugo "sys/full.fzk")
  322.                     ;       (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
  323.        (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
  324.        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
  325.                     ;       (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
  326.                     ;       (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
  327.        (wnn-server-set-param '(wnn_n 1
  328.                 wnn_nsho 5
  329.                 wnn_hindo 2
  330.                 wnn_len 750
  331.                 wnn_jiri 10
  332.                 wnn_flag 80
  333.                 wnn_jisho 10
  334.                 wnn_sbn 5
  335.                 wnn_dbn_len 1000
  336.                 wnn_sbn_cnt 50
  337.                 wnn_suuji 0
  338.                 wnn_kana -200
  339.                 wnn_eisuu 0
  340.                 wnn_kigou 0
  341.                 wnn_toji_kakko 0
  342.                 wnn_fuzokogo 16
  343.                 wnn_kaikakko 0))
  344. ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
  345.        )
  346.       )
  347.  
  348. ;;       N nsho hindo len jiri flag jisho sbn dbn_len sbn_cnt suuji kana eisuu kigou toji_kakko fuzokogo kaikakko
  349.  
  350.